100 IFCHTHEN480
110 POKE53281,0::POKE53280,0:PRINT"[147][158]"
120 C(1)=15:C(2)=12:C(3)=11
130 C(7)=11:C(6)=12:C(5)=15:C(4)=12:GOTO300
140 POKE646,6:PRINT""SPC(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
150 PRINTSPC(5)"[221]                             [221]"
160 PRINTSPC(5)"[221]                             [221]"
170 PRINTSPC(5)"[221]                             [221]"
180 PRINTSPC(5)"[221]                             [221]"
190 PRINTSPC(5)"[221]                             [221]"
200 PRINTSPC(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":GOSUB260:RETURN
210 POKE646,C(I+2):PRINT"[195] [210] [207] [211] [211] [160] [210] [197] [198] [197] [210] [197] [206] [195] [197]"
220 POKE646,C(I+1):PRINTSPC(6)"[195] [210] [207] [211] [211] [160] [210] [197] [198] [197] [210] [197] [206] [195] [197]"
230 POKE646,C(I):PRINTSPC(6)"[195] [210] [207] [211] [211] [160] [210] [197] [198] [197] [210] [197] [206] [195] [197]"
240 POKE646,C(I+1):PRINTSPC(6)"[195] [210] [207] [211] [211] [160] [210] [197] [198] [197] [210] [197] [206] [195] [197]"
250 POKE646,C(I+2):PRINTSPC(6)"[195] [210] [207] [211] [211] [160] [210] [197] [198] [197] [210] [197] [206] [195] [197]":RETURN
260 PRINTSPC(19)"[158]BY"
270 PRINT""SPC(16)"[210]ICK [206]ASH"
280 PRINT"[154][211][208][193][195][197][160][212][207][160][204][207][193][196][160][195][210][207][211][211] [210][197][198][197][210][197][206][195][197]"
290 PRINTSPC(11)"[209][160][212][207][160][209][213][201][212][160][212][207][160][204][207][193][196][211][212][193][210]":RETURN
300 GOSUB320:GOSUB140:GOTO440                                          
310 STOP
320 POKE214,15:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
330 FORI=1TO3:PRINT"                                      ":NEXT
340 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #59     "
350 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694    "
360 PRINT"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
370 PRINT"                                      "
380 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
390 AU$="[195][210][207][211][211][160][210][197][198][197][210][197][206][195][197]":POKE214,17:PRINT:PRINTSPC(20-LEN(AU$)/2)"[152]"AU$
400 AU$="[194]Y [210]ICK [206]ASH  ([195]) 1989":POKE214,18:PRINT
410 PRINTSPC(20-LEN(AU$)/2)"[152]"AU$"":RETURN
420 I=I+1:IFI=5THENI=1
430 GOSUB210:RETURN
440 GETA$:GOSUB420:IFA$<>"Q"ANDA$<>" "THEN440
450 I=1:GOSUB210
460 IFA$="Q"THEN490
470 CH=1:LOAD"X-REF",8,1
480 SYS49152
490 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
500 IF ER<>63 THEN PRINT"[147]":END
510 A$="HELLO CONNECT":Q$=CHR$(34):POKE53281,7:POKE53280,7:PRINT"[147]"
520 PRINT"[158]LOAD"Q$A$Q$",8"
530 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END